home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib07.dsk
/
SCROLL RIGHT LOADER.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
424b
|
14 lines
10 REM SCROLL RIGHT LOADER
20 INPUT "ENTER BASE ADDRESS: ";B
30 I = 0
40 READ J: IF J <0 THEN 60
50 POKE B +I,J:I = I +1: GOTO 40
60 PRINT "SCROLL.RIGHT LOADED AT "B
70 PRINT "LENGTH: "I" BYTES. NEXT ADDR: "B +I
80 END
90 DATA 165,34,197,35,240,30
100 DATA 72,32,36,252,165,40,105,1,133,42
110 DATA 165,41,133,43
120 DATA 164,33,136,136,177,40,145,42,136,16,249
130 DATA 104,105,1,16,222,96
140 DATA -1